# Clock de la Red: Pedidos - Respuestas

# load data
datos <- read.table("clock.0", header=F)
paquetes <- datos$V3
graf <- "clock.png"

print(paquetes)

len = length(paquetes)
ped = sum(paquetes)
rta = len - ped

# plot
png(filename=graf, width=1024, height=300, bg="white")
plot(c(1:len), paquetes,
  main="Tráfico cronológico de Paquetes Pedido/Respuesta de ARP sobre 20min. de sniffing",
  xlab="Orden cronológico",
  ylab="Paquetes Pedido/Respuesta",
  ylim=c(0,1),
  yaxt = "n", asp=50,
  col="blue", type="p")
axis(2, at=c(0,1), labels=c('Rta.','Ped.'))
legend("right", c(paste(ped,"Pedidos"), paste(rta,"Respuestas")), bg="#e1e1e1")
dev.off()
